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Check create UCB quota 
Check create mailbox 
ol a nk a new UCBs 


rk caive n UCB 
CB = Lin A. to "DDB chain 


quota 


soo’ t 


B = Unlink 
CB = Return UCB arged “aust 
CB = CREA TE MATLEDS RN TWORK UCB 
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R. 0. Weber 14-SEP-1982 


Permanently present paged and nanapapes routines for UCB creatation, 
: deletion, and ancilliary related tas 


; MODIFIED BY: 


v03-013 LMP0304 L. Mark Pilant, 22-Aug-1984 8:51 
Fix stack alignment problem introduced in LMP0302. 


vO3-012 LMP0302 L. Mark Pilant 10-Aug-1984 14:45 
Use a special kernel AST bLbns I to delete the ACL segments 
associated with a UCB. 


v03-011 LMP0275 Mark Pilant, 12-Jul-1984 20:44 
Initialize the ai info in the ORB to be a null descriptor 
List rather than an empty queue. This avoids the overhead 
of SOc ing and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


v03-010 RASO300 Ron Schaefer ay AY 
Change unit number } mit in I0C$ FLOW Ne yee. fo e 3839 
so that cluster device names will fit™in 15 characters. 


vO3-009 TMKO001 Todd M 26-Apr-1984 
Remove the SLOGDEF ALk. nane definitions. 


V03-008 LMP0221 Mark Pilant 31-Mar-1984 9:07 
Add support for the Object’s Rights Block (ORB). 
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H V03-007 LMPO185 L. Mark Pilant, 23-Jan-1984 12:52 
6 Add support for ACLs on devices. 
V03-006 ROW0216 Ralph 0. Weber 27-AUG-1983 


Correct tye. incorrect uges of R5 as the UCB address iP 
IOCSLINK_U contains the UCB address od that rout 
Also r oolee" ay nstruction ren he oon Aces fous’ 
aoe IOCSSEVER_UCB. Also change R usage 1 n foc CREDIT pis to 


v03-005 9-1983 


M0076 S358 
x incorrect use of R2 to be R5, in ROW 204. Thane. 


Kathleen D. Morse 
0w0204 aie 6 Weber 5-AUG~1983 

hange locspeBiT” UC and 1OCSCREDIT UCB to test for DEVSM_CLU 
eing set and non-fatal bugcheck if it is. This coincides 
ith bngy ing UCBSL_CPID to 0. ver ay yeast LOCKID. The Later 

ield is used only when D s set. Therefore, testing 


the bit insures correct use of the overlayed field. 
Also remove SDELMBX. This has been the intention all along 
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F 
v03-004 ope 
b 
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and now that V3.4 has shipped its no longer needed for 
Semportbitite, Correct spelling error in .TITLE 
V03-003 DMw4062 DMWalp 23-Jun-1983 
pete LOGS$xxx references to LNMSxxx 
V03-002 ROW0182 0. Weber 15-APR-1983 


Ralph 
Change IOCSSEVER “UC to everurite UCBSL_LINK of the severed 
UCB with minus one. This assists wildcard GETDVI with context 
verttication between wildcard operation calls. 


V03-001 ROW0164 Ralph 0. Weber 25-F EB-1983 

Make several ae Fices including: 

o Fix IOC$COPY_UCB to actually ipreserve, R3. 
o Change BSB, RSB in IOCSFREE 

; BE IPCS ASTDELS fealaste that IOCSCREDIT UCB must be entered 
a 

© Optimize IOCSCREDIT_UCB to skip elevated IPL code when 
UCBSL_CPID equals zéro. 
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~SBTTL IOCSCHKUCBQUOTA = Check create UCB quota 
-SBTTL IOCSCHKMBXQUOTA = Check create mailbox quota 


IOCSCHKUCBQUOTA = Check create UCB quota 
IOCSCHKMBXQUOTA = Check create mailbox quota 


FUNCTIONAL DESCRIPTION 


Test byte 1/0 count quota of process whose PCB address is in R4 for 
tl ent suste to create the UCB whose template is pointed to by 
R5. _IOCSCHKMBXQUOTA tests a quota requirement with low order word 
of R& summed to the UCB quota requirement. 


ie 
~ 
oo 


INPUTS 

R4 PCB address 

R5 Template UCB address 

R8 Additional quota charge (IOCSCHKMBXQUOTA only) 
OUTPUTS 

RO ORMAL process has sufficient quota 


SS$_N 
SS$-EXBYTLM process does not have sufficient quote 
SS$_BADPARAM quota charge overflow; <UCB$W_SIZE + R8&> gt 65535 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sete 


~-PSECT YSEXEPAGED 


Setup success status 
and return. 


IOCSCHKMBXQUOTA:: 
MOVZWL RB, -(SP) ; Save additional quota charge value. 
BRB CHKQUOTA ; Branch to common quota checking code. 
IOCSCHKUCBQUOTA: : 
CLRL -(SP) ; Zero additional quota charge value. 
CHKQUOTA: 
ADDW2 yreeu.SIZECRS), (SP) ; Sum UCB size and extra quota charge. 
BCS 0 ; Branch if that overflowed a word. 
ADDL2 #256, (SP) 3; Add more to allow process deletion. 
MOVL PCBSL_JIB(R4), RO ; Get JIB address. 
CMPL (SP)+, JIBSL_BYTCNT (RO) 3 Enough bytes to safisfy requirements? 
GTRU 3; Branch not enough bytes. 


B 
MOVZWL #SS$_NORMAL, RO 
RSB 


80$: MOVZWL #SS$_BADPARAM, RO 


a} Setup quota charged overflow status 
90$: 1 #SS$_EXBYTLM, RO 


and return. 
Setup insufficient quota status 
and return. 
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; -SBTTL IOCSCLONE_UCB = Copy and Link a new UCB 
IOCSCLONE_UCB = Copy and Link a new UCB 
FUNCTIONAL DESCRIPTION 

10ebcBe¥eg Late UCB and 14'S, it. This is a combination of 


YU : ane, ts LINK_U The unit number e determined adding 
nei to UCBSW SEED in” eke” template UCB. If that unit number 
hes TR nv Value is incremented and the Link operation is 
repeated. 


N.B. The UCB is not added to the List of UCBs for this controller 
kept in the IDB. 


N.B. This routine will loop forever if all UCBs between 1 and 9999 
are in use. 


INPUTS 


R5 Template UCB address 
UCBSW_UNIT_SEED(R5) seed unit number value 


OOO NA VE WI OOOO Er 


+ 3 1/0 database locked for write access 10¢ 
0 ; IPL less than or equal to IPL$_MAILBOX ioe 
: 3; OUTPUTS 10¢ 
be 3 IPL 
$3 RO SS$_NORMAL UCB cloning successful J18 
96 ; SSS"INSFMEM insufficient non-paged pool to copy UCB J18 
07 ; R1 Addfess of UCB fot towing this one in the List J18 
38 : R Destination UCB addre ORB 
09 ; R Address of uce preceding this one in the List ORB 
10 ; R4 Preserved ORB 
1} : RS Source UCB address OR 
18 3 CRBSW_REFC( UCBSL_CRB(R2) ) incremente 
13 ; UCBSW-UNIT_SEED(RS) <== UCBSW_UNIT(R2) ; unit number of the new UCB 
1 ; The utBst Fare enieset Laer *ee. {s per formed on the destination UCB: 
ve 3 CBSL_FQF <== ad BSL_FQFL ) 
18 ; UCBSL-FQBL <== oar ati _FQFL ) 
19 ; UcBsL EP <ss 
: UCBSL-FR <== 
13 UCBSL_FR <== 
§ : UCB$W_BUFQUO <== 
; UCBSL_LINK <== addr( next UCB in List ) or zero 
4; UCBSL_IOCFL <== addr( UCBSL_IOQFL ) 
5; UCBSL_IOQBL <== addr( UCBSL_IOQFL ) 
§ 3 Mat aH <== unit number 
: UCBSW_CHARGE <== casu. SIZE 
8 : nr} ty ~RErC <== 
a % UCBSL-S/S <== UCBSM_ONLINE 
? 3 UCBSW_DEVSTS <== 
; UCBSL-OPCNT <== 
23 UCBSL-SVAPTE <== 


voo-000 " TOCSCLONE UCB 


on 


*topy and Link toutingty TECSEEIREE SLEL:tE ESYS"SRCIUCBeREDEL.RaR:1 28" 8, 


ld first pege*ole unit number 


jcésu 


ory rin T_SEED(RS), 
3; for the new 


UCBSW_UNIT “SEES (RS) next seed value. 


Then return. 


oO 
uw 
oo 


D 3 3 UCB$W_BOFF <== 
D ¢ 3 UCB$W_BCNT <== 
: UCBSL_ORB <== addr( ORB ) 
4 $ ; The nest Ow owin nde wasesey Seetten is performed on the destination ORB: 
D ; ORBS ati MUTEX <s=_ *xOQOOFFFE 
D 40; ORBS “FLAGS RBSM_PROT_16 
D 41 ; ORBSW_PROT te 
D tg ; ORBSL_ACL_COUNT = 
D 43 ; ORBSL_ACL_DESC 
4 te : ORBSR_MIN_CLASS <es first longword 0 
4 oe 
0000 ‘} -PSECT WIONONPAGED 
0 ‘3 IOCSCLONE_UCB:: 
ge 10 24 6S8B IOCSCOPY_UCB : Make a copy of the tema lore ucB. 

20 50 —=s« EY § 2 BLBC aye vs ~ 3 Aye the rest if that failed. 
54 a2 65 01 Al 00 ; 37 ADDW3 ul 
270F 8F 54 i s GOA 2? 30$: ce eu agi ripe )»,#9999 3 4 feo the Limit? 

3 oka 
54 A2 61 90 B12 35 MOVW tetas Nims 3 Reset unit number 
0094 1 58 40s BSBW Tot NK-UCB ; Sranch to Link to UCB. 
5 50 €8 1 59 BLBS R : Branch if Link successful. 
4 A B6 1¢ 60 INCW CBSw -UNIT(R2) 3; Else increment unit number 
E 11 OO1F 61 BRB 0$ 3 and try again 
65 54 A2- 860 033 6¢ 70$: MOV UCB$W_UNIT(R2) : Save final unit number as 
025 : 


64 90$: RSB 
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IOCSCOPY_UCB = Copy a given UCB 
FUNCTIONAL DESCRIPTION 


Won~paged pool sufficient to accommodate the template UCB is 
allocated. The template UCB is copies to the newly allocated pool. 


The template copy UCB is initialized as shown below. 
INPUTS 

R5 Template UCB address 

1/0 database locked for write access 

IPL less than or equal to IPL$_MAILBOX 
OUTPUTS 


RO SS$_NORMAL UCB copy successful 
SSS_INSFMEM insufficient non-paged pool to copy UCB 


3 estroyed 

3 R Destination UCB address 
: fe Preserved 

: R4 Preserved 

; R5 Source UCB address 
3 The following initialization is ormed on the destination UCB: 
; UCBSL_FQF <== addr( UCBSL_ 

; Okesr FQBL <== addr( UCBSL_ 


t 
alee! 


Cc 
o 
aww 
PARAMS 


OQFL <== addr( UCBSL_IOQFL ) 
OQBL <== addr( UCBSL-IOQFL ) 
GE <== UCBSW_SIZE 

= 


<== UCBSM_ONL INE 
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ORB$L_ACL_DESC <== 
ORBSR_MIN_CLASS <== first longword 0 


~-PSECT WIONONPAGED 
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Creation/Deletion neuktens 
B-C UCB 


opy a given 


1OCSCOPY usere 


PUSHL 
M 


MOVW 
MOVZWL 


CLRW 
R 


CLRL 
ASSUME 
ASSUME 
CLRQ 


3; Now that the 


10$: 


40$: 


ASSUME 
CLRQ 
CLRL 
MOVZWL 
POPL 
RSB 
MOVZWL 
BRB 
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Copy a given UC 


R3 3; Save caller's 

UeBSt ORB (RS Ra 3; Get prototype 0 ORB address 
ORBSW-SIZE(R35, R ; Get size o 

uyeey SIZE(R5), R 3; Get size 9 block to gti lecate. 

Ri, RS 3 Save origin ze of UCB for later 
RO, R 3; Make ORB ad agent to uC 
EXESALONONPAGED ; Allocate block from nonpaged memory. 
RO, 40$ ; Branch if allocation failure. 
#°R<R2,R3,R4_R : Save registers. 

UCBSW sTTECRS) (RS), (R2) i Copy fers? UCB to new UCB. 
ean fi R4,R5> ; Restore e sters 

R3, Re, UCBSL_OR (R2) : Set ORB addres 

Re, UCBSL_ FQFC(R ; Initialize new *uce fork queue 

R2, UCBS$ “FOBL CR Listhead. 

UCBSL_FR EQ <UCBSL_FPC 44> 

UCB$W-BUFQUO EQ <UCBSL~FR4 + 4> 

UCBSWISRCADDR EQ <UCBSL_FR4 + 6> 

itt tes trey ; Clear fork context information, byte 
UCBSL_FR4(R2) ; count quota charge, and protection. 
UCBSL~1OQFL (R32), UCBSL_IOQFL(R2) ; Init 1/6 queue Listhead. 
UCBSL_IOQFL(R2), UCBSL_—JOQBL(R 

UCBSW_SIZE(R2), = : Initialize byte count quota charge. 
UCB$W~ CHARGE (R2) 

#1 UcBsY REFC(R2) 3 Initialize reference count. 

wucese ONCINE, - : Init device independent status. 
UCBSL_STS(R2) 

UCBSW_DEVSTS(R2) ; Clear device dependent status. 
UCB$L_OPCNT(R2) Clear operations completed count. 
UCB$W_BOFF EQ <UCBSL _SVAPTE + 4> 

UCB$W_BCNT EQ <UCBSL_ ~SVAPTE + 6> 

UCBSL_SVAPTE(R2) ; Clear SVAPTE, byte offset, and count. 
UCB has been initialized, it is time for the ORB. 
UCB$L_ORB(R2), R3 ; Get the address of the new ORB 
#°M<R2,R R Save registers. 

UCBSL ra RB(R : Get ederess or the prototype ORB 


wee tas) 
+ ORBSB_ bay 


3 opy gcve ven ORB to new ORB. 
aevter? re ster 

nitial mutex value 
s0GW protection word 


Set a3) access to everybody 


ORBSL “ACL _DESC EQ ORBSL_ACL_COUNT+4 


ORBSL_ACL = COUNT the 
ORBSR-MIN- ‘oe ) 
asss. RORMA 


#SSS_INSFMEM, RO 
108 


Null initial ACL 

No clesettication sypel ted 

Set success comp tea on status. 
Restore caller's 

Return. 


Set insufficient memory status. 
Return. 


UPC 
v04 


or ru" POoruv'i 


—ONn “WON ow 


oo 
~ 


CSLINK_UCB = 


a 7 
44 grat UCB Creation/Deletion Routines 16-SEP-1984 ¢ Bt: 3}: 48 yaxrvas Ge o V04-00 Page 9 


seated 21 
AD 
C3 OQOAD 


C 
C 
C 
C 
C 
6 D 
f D 
D 
D 
D 
D 


ONNOWOOM OC 


Link UCB to DDB chain -SEP-1984 


+ 


WAAN AAA A AAA AAA A NAA 


GODOOCOSOCOCOOOOOOOOOW@ocoacoccncpcNco~ 


MEAN OOO NAME WI 9 OD NAME WIN =O OO NANA SO OD NAUVOO OONOULS UN" 00 


90$: 


Fo oS ot of of ot ot of of at at A a MM MRMRAARMANHNMMUMMNdeee ee 


WWIWIWIWIUPROROPONONONONONONON 4 4 9 OOOO 


SYS.SRCJUCBCREDEL.MAR; 1 (6) 
-SBTTL IOCSLINK_UCB = Link UCB to DDB chain 
IOCSLINK_UCB = Link UCB to DDB chain 
FUNCTIONAL DESCRIPTION 
Search UCe Syet ferntee to by 0DB 7 ferenced in input . and Link 
input UCB i in ascending unit number order. Count UCB in 
number of UCBs Solerene tne CRB pointed to by UCB. The UCB 7: not 
added to the List of UCBs for this controller kept in the IDB. 


N.B. The UCB is not added to the List of UCBs for this controller 
kept in the IDB. 


INPUTS 
R2 Address of UCB to be Linked 
UCB$L_DDB(R2) Address of DDB on which UCB will be hung 
UCBSW_UNIT(R2) U number for U 
UCBSL_CRB(R2) pldreee of CRB which UCB will be counted as a 
referencer 


1/0 database locked for write access 


OUTPUTS 
RO SS$_NORMAL ==> Link operation successful 
SS$_ OP NCH ==> pies ape epereston failed due to presence of UCB 
same un 
R1 Address of uce following vthis one in the List 
Re Address of this UC 
Rp Address of ice "receding this one in the List 


CRBSW_REFC( UCBSL_CRB(R2) ) incremented 


-PSECT WIONONPAGED 


IOCSLINK_UCB:: 


SUBL3 #<UCBSL L Ne does -UCB>, = 


UCBSL_DBB(R2), 3; Get address of first UCB Link. 
MOVL RI R ; Save address of previous UCB. 
MOVL SL_LINK(R3), : et address of next UCB. 
BEQL ==> end-of-list reached; go insert. 
CMPW BS$W_UNIT(R2), UCBSW _uNiT(R1D £ : Compare unit numbers. 
BGTRU $ 3: If n ist, continue seerch, 
EQL $ 3: If nae Q List, declare err 
50$: MOVL R1, UCBSL_LINK(R2) : Else, Link UCB. Forward Link” new UCB. 
MOVL R2, UCBSL Law CR ) :; Forward Link previous UCB. 
MOVL UCBSL_CRBTR »), R ; Get CRB address. 
INCW  CRBSWTREFC(ROS : Increment CRB reference count. 
MOVZWL #SS$_RORMAL, RO ; Set successful Link status 
$B 3 and return 


Set Link failed status. 
and return, 


MOVZWL #SS$_OPINCOMPL, RO 
RSB 
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-SBTTL IOCSDEBIT_UCB - Charge process quotas for created UCB 
IOCSDEBIT_UCB = Charge process quotas for created UCB 
FUNCTIONAL DESCRIPTION 
charge the process whose PID is in R4 for the UCB whose address is 


: INPUTS 

: R2 Address of UCB to be debited from process quotas 

H UCBSW_CHARGE(R2) Byte I/0 byte count quota charge for the UCB 
: and its associated paraphernalia 

3 R4 Address of PCB for process to be charged for UCB 

; IPL equal to IPL$_ASTDEL 

: OUTPUTS 

: RO Destroyed 

; R1 Destroyed 

: For JIB pointed to by PCB 

H JIBSL_BYTLM reduced by UCB$W_CHARGE 

: JIBSL_BYTCNT reduced UCB$Q_ CHARGE 

: UCBSL_CPID (which is the same as UCBSL_DUETIM) <== JIBSL_MPID 


~PSECT YSEXEPAGED 
IOCSDEBIT_UCB:: 


ASSUME DEVSM_CLU EQ 1 

BLBS UCBSL_DEVCHAR2(R2), 90$ ; Branch if UCBSL_LOCKID is in use. 
MOVZWL UCBSW_CHARGE(R2) RO 3; Get amount to charge BYTLM quota. 
OVL PCB$L~JIB(R4), RI : Get JIB address. 

SUBL RO, JIBSL_BYTLM(R1) ; Reduce byte count Limit. 

SUBL RO, JIBSL_BYTCNT(R1) ; Reduce byte count quota. 

OVL JIBSL_MPIB(R1), - ; Save master PID charged in 

- UCBSL_CPID(R2) ; charged UCB. 


~o 
So 
bad 


BUG_CHECK INCONSTATE Non-fatal bugcheck if DEVSM_CLU set. 
RSB Then continue, ignoring the debit 


request. 
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VOesO00 LOCSDELETE UCB = Delete UCB if REFC eq 0 "gr ety? Oh: h: : Leys SRCIUCBCREDEL MAR: 1 . (8) 
rt} ; : -SBTTL IOCSDELETE_UCB = Delete UCB if REFC eq 0 
rt ? § ; IOCSDELETE_UCB = Delete UCB if REFC eq 0 
rt} ; § 3; FUNCTIONAL DESCRIPTION 
4D 490 ; Check UCB pointed to by R5 for possible golet ten, and if needed 
4D 491; delete it. In order to be deleted, a UCB must 1) have " BS$W_REFC 
4D 49¢ ; rte to sero, and 2) have the jeagy DELETEUCB bie set in UCBSL STS. 
4D 493 ; UCB can be deleted, pover CB Linkage and return s pace ven OCB 
040 494; y UCB to non- sged 7 ._ This is a combination of Besse cB 
944 495 ; OY 4 IOCSFREE_UCB. uce is not af enover from the List sf UCBs 
4D $38 : for this seattetion het n the IDB. 
04D 497; 
004D $38 ; INPUTS 
04D 499; 
04D 500; R5 Address of yce to be unlinked 
04D 501 ; UCBS$L_DDB(R5) Address of DDB on which UCB is hung 
004D 208 3 UCB$L-CRB(R5) Address of CRB which counts UCB as a 
004D 03 ; referencer 
004D 504 ; 
Bneb 505 ; 1/0 database locked for write access 
04D 208 3 
004D 507 ; OUTPUTS 
004D 508 ; 
004D 509; RO Destroyed 
Beep 219 3 RA Destroyed 
004D 2i¢ ; CRBSW_REFC( UCBSL_CRB(R5) ) decremented 
0040 513 ;:- 
0040 514 
00000000 a2 -PSECT WIONONPAGED 
G0pp 317 IOCSDELETE_UCB:: 
OF'AF 9F OQODD 215 PUSHAB B*IOCSFREE_UCB j yetup to free UCB after eqver ing it. 
05 64 AS 10 Q0EO 520 BBC #UCBSV_DELETEUCB, - 3; Is the delete UCB bit set 
O9ED 521 UCBSL_STS(R5), 70$ : Branch if bit not set. 
5¢ AS 53 O0E5 5 é TSTW UCBSW-REFC(RSS 3; Is the reference count zero? 
03; 1 BREE 5 i BEQL IOCS$SEVER_UCB ; Branch to sever UCB if count is zero. 
QOEA 2 5 70$: ; UCB cannot be deleted. 
8E D5 OOEA 526 TSTL (SP)+ : 
05 OOEC 527 RSB ; Return without deleting UC 


; Pop IOCSFREE_UCB sarees trom stack. 


SS ; 


c 8 | 
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. ~SBTTL IOCSSEVER_UCB = UnlLink a UCB 

IOCSSEVER_UCB = Unlink a UCB 
Remove UCB pointed to by R5 from UCB List pointed to by DDB 
referenced in UCB. Reduce fount of UCBs Gf bales ag CRB pointed 
to by CB by one. The UCB is not removed from the list of UCBs 
for this controller kept in the IDB. 
INPUTS 


R5 
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i General 
v04-000 IOCSSEVE 


f 

(R5) Address of DDB on which UCB is hung 
(R5) Address of CRB which counts UCB as a 
eferencer 


yrs to be unlinked 
5 


1/0 database locked for write access 
OUTPUTS 


RO Destroyed 
R1 Destroyed 


UCBSL_LINK(R5S) <== =1 
CRBSW-REFC( UCBS$L_CRB(R5) ) decremented 
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-PSECT WIONONPAGED 
IOCSSEVER_UCB: : 


SUBL3 #<UCBSL_LINK-DDBS$L_UCB>, - 


So wma mM COGS 
UCBSL_DDB(R5), RO 


Get address of first UCB Link. 


MAA AAAAAXKAS PUNUNNGA MIE BB EB REE BWANA 
SODNAWNE WR OODNAUN EWN SO ODNAU EWN OODNAUNEWN OO 


QPUPV PV IV IVD IV IUPUI IVIVIVIVSUSUSVSVSI USVI USS VSS USS ISTO ISIS 


51 50 00 10$: MOVL RO, R ; Save address of last UCB. 
50 30 A1 00 MOVL UCBSL_LINK(R1), RO ; Get address of next UCB. 
3 ww CMPL RO,R ; Do the UCB addresses match? 
F412 BNEQ 10$ ; Branch and loop if no match. 
30 Al 30 AS bd MOVL UCBSL_LINK(R5), UCBSL_LINK(R1) ; Else, remove UCB from UCB List. 
30 AS) = 6010—Cfs«CE'Cé@QDD MNEGL #1,UCBSL_LINK(RS) : Invalidate severed UCB's forward Link. 
50 24 a5 DO 01 OVL  UCBSL_CRB(RS), RO : Get CRB address. 
OC AO Bf } pec CRBSW-REFC (ROS ; Decrement CRB reference count. 


UEP CREDEL 
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-SBTTL IOCSFREE_UCB = Free pool used by a UCB 
IOCSFREE_UCB = Free pool used by a UCB 
FUNCTIONAL DESCRIPTION 


—-oO 
oe 
os 
PAO 
"Ss 
co 


adi to non-paged pool the space occupied by the UCB pointed to by 


De Se Be Be Se Ge Be Be Oe Se Se Se Se Se Se BeBe Se 
+ 


al U 
REE_ 
10F 7 
ior 858 
10F 74 
10F 75 
10F 6 
10F 7 
10F 8 
at 
Sr 1 INPUTS 
10 5 R5 UCB address 
4 . ; 1/0 database locked for write access 
010) tf OUTPUTS 
010F 85 RO Destroyed 
Be 
vata} 235 -PSECT WIONONPAGED 
010F 23¢ IOCSFREE_UCB:: 
7E 54 D0 010F 95 MOVL ; Save a re ister 
54 1C AS + 0112 298 MOVL UCési SRB (RS), 3; Get the address of the ORB 
5B 13 0116 97 BEQL 20$ Skip follguing if no ORB grecens 
56 0B A401 E1 Bie 205 BBC #ORBSV_ACL_QUEUE, ORBSB_ i gkien fs 20$ ; Xfer if ACL not a queue 
B48 ony ; If there are no ACL segments, Life is simple. 
50 28 A4 9E O011D o0¢ MOVAB ORBSL_ACLFL(R4), RO ; Get addr of ACL pi head 
50 60 O01 815, 60 CMPL (RO), RO : Is the queue sooty? 
4D «13 4 2 one BEQL 20$ : Xfer if so, not ing to do here 
0126 606 : Since there are ACL segments, it will be necessary to fire off a special 
126 607 ; kernel AST to the SWAPPER process to delete them. This is because LOCSFREE UCB 
126 608 ; y be called above IPL 2. With ACL segments Living in paged pool, this would 
31 ? O02 3; not be a friendly gesture. 
7E 2C AG DO 0126 611 MOVL ORBSL atineryee -(SP) ; Save addr of Last segment 
50 28 A4 F OQ12A oi¢ REMQUE ORBSL-ACLFL(R4), RO ; Separate ORB from ACL segments 
7E 854 D O12E 61 mMOVa R4&, -TSP) ; Save R4 & UCB address 
7E 3 0 0131 614 MOVL R3, -(SP) ; Save some more registers 
ff 5 D 0134 615 mMOVa -(SP) 
5 4 p 137 616 MOVL #Ates C_LENGTH+8, R1 ; Size of the block to get 
FEC3° 135A 61 BSBW EXESALONONPAGED : Get block for ath kernel AST 
>) ae D 13D 918 MOVL R2, Copy block addr to right register 
A Ad 9 90 0140 61 MOVE #DYNS$C_ACB  ACBSB. TYPE (RS) ; Set structure type 
A 1 86 144 620 MOVW Ri, ACBSW Set atrusture size 
oc AS (OO Bod 5 0 14 ° 1 MOVL scisol SuPP ACBSL PIDiR R5) Set target process PID 
A p F ; 13 g MOVB #ACBSA KA AS: ROD (RS) | t eeela kernel AST 
18 AS 00000195'EF E—E 01 6 MOVAB ACBSL_KAST(RS) : address of AST routine 
4 BE 10 AS (OO 15 ? 4 INSQUE a LENGTHCRS) azocsps ° ACL segments to AST block 
52 98 6 169 5 MOVL a “RES R2° Set orior ty increment 
FE98° 5 1 6 8 BSBW scutes ve : Fire off special kernel AST 
2 ge D 0168 6 MOVQ n : an he saved registers 
3 E 00 0168 628 MOVL — 
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vrata 1OCSFREE_UCB - Free pool used by a UCB sets 8}: 3h +8 Heys" eR SR ci BCREDEL. MAR; 1 . (10) v04 
54 E 4 1 MOVa (SP)+, R4 
: 2 @ | TSTL (SP)+ ; Final cleanup of the stack 
| ; Now that the ACL segments have been taken care of, delete the ORB and UCB. 
50 08 a3 3 5 4 208: ite y Bs SIZE(R5), RO ; Note size of the current UCB 
20 2 C 17 5 DL2 ; Cale end of the UCB 
4 4 tt \fA 6 § CReL : Is this hore the ORB lives? 
1 17D BEQL : Xfer if so, diddle the UCB size 
50 4 Be 17F MOVL 40s RO ; Else ody By . address to deal locate 
FE7B' 1 BSBW MSDRVDEALMEM ; neleese eo 
Fb 1 4 BRB ng now for fe ucB 
08 AS O08 AS AO 1 4 $08 ADDW2 ORBSW_SIZE(R4), UCBSW_ sidE(r ) Release ORB also 
54 3 DO 018C o46 50$ MOVL eres R4 : Restore saved register 
50 Y 18F 64 MOVL R5, rb : Setup UCB address to deallocate. 
FE6B' 31 01 g 644 BRW COMSDRVDEALMEM ; Deallocate the UCB and return to 
132 re 3; caller. 
0195 $09 ; Here is the special kernel AST routine used to deallocate the ACL segments 
b198 e78 ¢ associated with the UCB being vaporized. 
7E 53 00 0195 650 60$: MOVL - ; Save a register 
50 1¢ 85 OF 0198 651 70$:  REMQUE BACBSC LENGTH(RS), RO; Remove ACL segment 
05 1D 019C O26 BVS 3; Xfer if no more 
FESF' 30 Bie 65 BSBW XESDEAPAGED : Else deallocate the segment 
F5 11 O1A1 654 BRB ; And try for another 
53 8€ DO O1A3 655 80S MOVL (SP)+, R3 ; Restore a register 
50 55 DO O1A6 656 MOVL R5, R ; And now to deallocate the 
FE54" 31 O1A9 657 BRW EXE $DEANONPAGED : AST control block 
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-SBTTL IOCSCREDIT_UCB = Return UCB charged quotas 
IOCSCREDIT_UCB = Return UCB charged quotas 
FUNCTIONAL DESCRIPTION 
Credit the process with the PID stored in UCB$L_CPID(R5) na the 
UCB charges associated with the UCB whose address is in RS. I 
+ te 14 D equals zero or the process pointed to by UCBSL_CPID does 
not exist, make no process quota changes. 
INPUTS 


R5 Address of UCB to be credited to process quotas 
UCBSL_CPID(R5) Process ID of process to which quota usage is to 


be gvegited 
UCB$W_CHARGE(R5) Byte I/0 byte count quota charge for the UCB 
and its associated paraphernalia 


IPL equal to IPLS$_ASTDEL 
OUTPUTS 


RO Destroyed 
R1 Destroyed 


pointed to by PCB 

-BYTLM increased bY UCBS$W_CHARGE 

-BYTCNT increased by UCBSQ_CHARGE 

-CPID (which is the same as UCBSL_DUETIM) <== 
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IOCSCREDIT_UCB:: 


ASSUME 

Branch if UCBSL_LOCKID is in use. 

Get charged PID index. 

Branch if none. 

; Block scheduler database changes. 
: set PCB address. 

16(R5) =; Is PID correct? 

Branch if no longer the right PID. 

Get JIB address. 

Get charged amount. 

Return byte count Limit. 

Return byte count quota. 

Zero charged PID. 

Restore privious IPL. 

Return 
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00000008 70$: -LONG IPLS$_SYNCH ; Construct used to temporarily 
ASSUME <. = IOCSCREDIT_UCB> LE 512 ; lock less than a page at 


; olevated IPL. 
90$: BUG_CHECK INCONSTATE ; Non-fatal bugcheck if DEVSM_CLU set. 
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$099 tig RSB ; Then continue, ignoring the credit 
91 1 i; request. 
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16-SEP-1984 01:31:4 AX/VMS Macro Vv04-00 
$731 obec $4: 33348 LOYS SRCJUEBCREDEL MARS 1 
IOCSCREATE_UCB = CREATE MAILBOX OR NETWORK UCB 

; IOCSCREATE_UCB = CREATE MAILBOX OR NETWORK UCB 


; THIS ROUTINE IS CALLED TO CREATE A MAILBOX OR NETWORK UCB AND LINK IT INTO 
; THE 1/0 DATABASE. 


INPUTS: 
R4 = CURRENT PROCESS PCB ADDRESS. 


R5 = ADDRESS OF CLONE UCB. 
1/0 DATABASE IS LOCKED FOR WRITE ACCESS. 


OUTPUTS: 


RO LOW BIT CLEAR INDICATES FAILURE TO ALLOCATE UCB. 


RO = SS$ 


INSFMEM = 


OR NETWORK UCB. 
RO LOW BIT SUCCESS INDICATES SUCCESSFUL CREATION. 
R2 = ADDRESS OF ALLOCATED UCB. 
CONTROL IS RETURNED WITH I/0 DATABASE STILL LOCKED FOR WRITE ACCESS. 


This is a tempora 


(found in IOSUBPAGD). 


a ee MEMORY TO ALLOCATE MAILBOX 


ry replacement for the V3.x UCB creation routine 


This routine will be removed when development 


of V3.x compatible software which dynamically creates and deletes 


UCBs is concluded 


-PSECT YSEXEPAGED 


IOCSCREATE_UCB:: 


;CREATE MAILBOX OR NETWORK UCB 


BSBW LOCSCLONE_UCB : 

BLBC RO, 90$ 3 

MOVL UCBSL_ORB(R2) .RO : 

MOVL  PCBSL-UIC(R4). = : 
ORBSL “OWNER (RO) 

MOVL  PCBSL~JIB(R4), RO ; 

MOVL JIBSLAPID (ROS, - ; 
UCBSL~CPID(R2) 

MOVZWL #SS$_RORMAL, RO ; 

RSB ; 

END 


Clone a copy of the UCB. 
Branch if clone failed. 
Then do the things that IOCS$COPY_UCB 
did that IOCSCLONE_UCB does not do. 
Get the address of the ORB 

Insert creator UIC. 


Get JIB address. 
Store master PID as creator. 


Indicate that function succeeded. 
Return 
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sect synopsis “SEP-1984 03:58: SYS.SRCJUCBCREDEL .MAR; 1 (12) 
P 15 Usys.secd 


been es ens ase memo} 


! Psect synopsis ! 


ge were eee ene en een ty 


PSECT name Al Location PSECT No. Attributes 
. : 0 8 88 ( 8. 0 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 0 ( as 7 -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED 3 AE ( 174.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
WIONONPAGED OO1AC ( 428.) ( -) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
i ens 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 Os :8 .05 8:00:01 27 
Command processing 1 :00:00.48 38 704.74 
Pass 1 37 0:00:1 2¢ 0: Rose 
Symbol table sort 0:00:02.11 3: :06. 
Pass 2 14 0:00:02.91 :00:12.8 
Symbol table output 1 0:00: 19 0: 8:8 14 
Psect synopsis output 0: 8 8 0:00: 553 
Cross-reference output 0:00: e- 3 0: 2: ° 
Assembler run totals 666 0:00:18.6 0:01:09.9 


Th yore ing set Limit was 1650 pages. 

76372 bytes (150 pages) of virtual memory were used to buffer the intermediate sede. 

There were 80 pages of symbol table space allocated to hold 1385 non-local and 25 local symbols. 
69 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


gern wee wren car ceo ene re 


! Macro Library statistics ; 


dee eeses ese eee ee eee meee ee 


Macro Library name Macros defined 
“BEeRSDUACE: ESYS-08J31 18 mB: 
$255$DUA28: (SYSLIBISTARLET.MLB;2 
TOTALS (all Libraries) 20 
1505 GETS were required to define 20 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:UCBCREDEL/OBJ=OBJ$:UCBCREDEL MSRC$:UCBCREDEL/UPDATE=(ENH$:UCBCREDE! }+EXECML$/LIB 
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